1.读取sheet页【原始数据】中的B列只取唯一值,并将维一值写入到sheet页【批量处理】A列中
Subonly_data()
DimmRng$,D,c
SetD=CreateObject("scripting.dictionary")'因MSSQL防注入安全问题，这里的Create与Object之间是没有空格才是正确
ForEachcInSheets("原始数据").Range("B2:B9999")
IfNotD.exists(c.Value)ThenD.Addc.Value,""
Nextc
Sheets("批量处理").Range("
备忘录1:
'删除重复记录
SubRemoveDuplicateRecord()
DimRow0AsLong,Row1AsLong
WithWorksheets("Sheet1")'工作表名称
Row0=.Cells(1048576,1).End(xlUp).Row
.UsedRange.RemoveDuplicatesColumns:=Array(1,2,3,4,5,6,7,8),Header:=xlYes
Row1=.Cells(1048576,1).End(xlUp).Row
EndWith
'MsgBox"共删除"&Row0-Row1&"("&
MAC问题库
Mac是
...
热搜榜
上海网站建设
赵姐商业
Donaldfef
MERGEL44
手赚术
游客0519
Miss Hu
Larryruita
